s 1   =   " R e d o n " 
 
 S e l e c t 1 
 
 ' s 1   =   " R e d o n " 
 
 ' S e l e c t 1 
 
 ' s 1   =   " R g b O f f " 
 
 ' S e l e c t 1 
 
 S t o p 
 
 
 
 L a b e l   S e l e c t 1 
 
 	 S e l e c t   s 1 
 
 	 	 C a s e   " R e d " 
 
 	 	 	 R e d O n 
 
 	 	 C a s e   " G r e e n " 
 
 	 	 	 G r e e n O n 
 
 	 	 C a s e   " B l u e " 
 
 	 	 	 B l u e O n 
 
 	 	 C a s e E l s e 
 
 	 	 	 P r i n t   " I n v a l i d   Q R c o d e   "   +   s 1   +   C R L F 
 
 	 	 	 S t o p 
 
 	 E n d S e l e c t 
 
 R e t u r n 
 
 
 
 L a b e l   S e l e c t 2 
 
 	 S e l e c t   s 2 
 
 	 	 C a s e   " R e d O N " 
 
 	 	 	 R e d O n 
 
 	 	 C a s e   " G r e e n O N " 
 
 	 	 	 G r e e n O n 
 
 	 	 C a s e   " B l u e O n " 
 
 	 	 	 B l u e O n 
 
 	 	 C a s e   " R g b O F F " 
 
 	 	 	 R g b O f f 
 
 	 	 C a s e E l s e 
 
 	 	 	 P r i n t   "   U n r e c o g n i z e d   c o m m a n d :   "   +   s 2   +   C R L F 
 
 	 	 	 B e e p 
 
 	 	 	 S t o p 
 
 	 E n d S e l e c t 
 
 	 B e e p 
 
 	 W a i t   S e c o n d s   0 . 5 
 
 R e t u r n 
 
 
 
 '   T%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%W%
 
 '   Q%  L E D   O N   O F F                                                                   Q%
 
 '   Z%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%P%]%
 
 V a r i a b l e   N u m e r i c   S l o t _ L e d R   =   1 
 
 V a r i a b l e   N u m e r i c   S l o t _ L e d G   =   2 
 
 V a r i a b l e   N u m e r i c   S l o t _ L e d B   =   3 
 
 
 
 L a b e l   R e d O n 
 
 	 S l o t   S l o t _ L e d R   =   1 0 0 0 
 
 R e t u r n 
 
 
 
 L a b e l   G r e e n O n 
 
 	 S l o t   S l o t _ L e d G   =   1 0 0 0 
 
 R e t u r n 
 
 
 
 L a b e l   B l u e O n 
 
 	 S l o t   S l o t _ L e d B   =   1 0 0 0 
 
 R e t u r n 
 
 
 
 L a b e l   R g b O f f 
 
 	 S l o t   S l o t _ L e d R   =   0 
 
 	 S l o t   S l o t _ L e d G   =   0 
 
 	 S l o t   S l o t _ L e d B   =   0 
 
 R e t u r n 
 
 
 
 
 
 ' W A T C H   t t s v o i c e s 
 
 